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Hi , 

First off, the date of our next meeting is Monday, 24th June. 

This is being put at the start of the newsletter, due to those 
people who miss seeing it further on. 

Last month was a fairly unusual meeting - one of our committee members 
(who shall remain nameless - but he knows who he is!) forgot about 
the meeting, incredible as this seems. So, we didn't have a speaker. 
However, Olwen opened the meeting, and Andy demonstrated his Data Base 
II program. By the way, when I said there was a demonstration program 
that came with the Data Base II, I find when I loaded it and looked at 
the program, that it is a demonstration file. And, guess what, I 
can't load the data into my machine, so until something else is worked 
out, everyone that has bought the program won't get the demonstration 
data file part. Sorry about this, blame these stupid Genies that we 
have got . 


Disk Drives 


There is no more news yet about these, Mark is still waiting for some 
parts to arrive from overseas. However, if anyone is desperate, we 
(or you) can order the interfaces direct from England. They will cost 
around <300.00 (107.00 pounds plus 7.50 airmail postage converts to 
something around $300.00. If you are interested in doing something 
now get in touch with me, and I can give you details. 


Data Stab i 1 i sers 


These are now freely available, let- me know if you want one. 


New Members 


We would 1 ike to welcome the following new members to our Group 

Nick Bar t u 1 o v i ch , 1 3 Hendry Avenue , H i 1 1 sbor ough . 

Rodney Adamson, 24 Cheval Dr i ve , G 1 en f i e 1 d , Auck 1 and 10. 

G.R. Anderson, 300 Gascoigne Street , Hast i ngs . 

Wayne Lester, 12 Henry St r ee t , Wa i koua i t i . 
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SOFTWARE 


Saug 

This program has now been sent out to members who had requested it. I 
was finally able to load the updated program from the Goldies after 
cleaning the heads on the recorder and kicking it once or twice. 

Moonbuggy /Tr i ton Battle 


I have decided to sell these two programs on the same tape - one on 
each side, for the same price as one program - $15.00. The reason for 
this is that Triton Battle is very much like A10 Bomber, other than 
the talking part at the start. 

Newsletter Tapes 


These are the tapes that were programs from our newsletters, and we 
were putting three or four programs on the one tape, and sell ing them 
for at> out $3.00 each. I find that it is too time consuming to do them 
for the price. It is much easier and quicker to put two programs the 
same on the tape, than three or four. 

Supaprint $20.00 

This program, for members with printers, performs LGR and FGR dumps, 
using the Genie's graphics. Chris has been using it to produce 
1 istings in the last couple of newsletters. The program is easy to 
use, and screen dumps of graphic drawings can tie produced simply. 


TAPE RECORDERS 


The one I mentioned in the last newsletter is actually a 'Euromat ic' . 
A few people seem to have these, and all say they have no problems 
with them. I understand from David Reid's that they are imported and 
they expect shipments throughout the year. 


computerised Address program $3.50 

this program has been sent to us by Herman Philipsen. It is a name 
and address file program, with an option of printing labels. the 
1 isting was going to be put in the newsletter until i found it was six 
pages long. 


see you all at the meeting next week. 


nol a hugg i ns 



SCREEN SCHULLER 


Recently I needed a routine to scroll the VLU 
screen vertically and horizontally with a complete wrap- 
around in both cases. 

The screen output on the Colour Genie is located 
in memory at 4400Kex-47BFHex . Each graphics position is 
represented by one byte of this memory. Therefore the 
contents of a byte can be Peeked, examined and/or modified, 
and i oked back to its original position or to new screen 
location. The colour of each position is controlled in 
the same way by memory at F000Hex-F3BFHex. Peeking and 
i J okin b the 1920 bytes needed to shift both the screen and 
its colour is extremely slow and tedious in a Basic rrogramme 
The obvious answer is machine code. 

The machine code routine is shown in both assembler 
version and in Basic version snd is located in the part of 
memory reserved for Ki Resolution graphics. If you wish to 
use the routine and the Hi Resolution screen then the code 
will need to be relocated. To the top of memory for example 

The routine is accessed by a call to 49G0Hex 
from a Basic or machine code programme. If the clear key 
is pressed tne routine will return to toe original pro 0 rsmme. 
The screen is rotated by pressing the appropriate Arrow 
Hey . 


To slow the scrolling enough to enable only one 
line to be rotated when an Arrow Key is pressed, a delay 
had to be included. This is done by a call to 60Hex, 
which is a Rom decrement count routine. To reduce the 
amount of delay then the delay amount loaded into the BG 
registers must be reduced. The fastest scroll speed 
needs a delay amount of 1 and the slowest FFFFHex. The 
delay amount is loaded in the following lines of the 
Assembler Version: 

051 

081 

117 

153 

The next stage is to modify the code to enable 
a predefined window of the screen to be scrolled. Perhaps 
some enterprising machine coder would like to try this. 


Peter Fisher 
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XX XX X XX A XX XX X A X X A A XX XX XiXCX AA XXA.XX. AXA XX XXa X X AA X -X A X 

002 





SCREEN SCROLL AKD ROTATION ASSEMBLER VERSIOK 

003 





FOR 

COLOUR GEDIE 32K WITH OLD ROPo 

004 





(C) 

PETER FISHER 1985 


005 





UP/DGW'K/LEFT/RIGHT ARRoWb PoVE THE SCREED 

006 





CLEAR KEY TO RETURD TO E.. t SlC/i ROGaAPPE 

007 





XXXXXXXaXXXXXXXXXXXaXXaXXaXXXXXXXXXXXXXXXXXXXXXXXXXX 

008 








C09 

4900 




ORG 



010 








011 





xxxx 

XXXXXXXXX}:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

012 

4900 

3A 

40 

F8 

SCAD 

LD A , (F840) 

ARROW KEYS ADDREoS 

013 

4903 

FL 

02 



Cx 2 

CLEAR KEY PREoSED 

014 

4905 

C8 




KET Z 

YES- Go BACK TO PRGGRAPPE 

015 

4906 

Fa 

08 



Cr 8 

Ur KEY iRaaoEjj 

016 

4908 

CA 

IF 

49 


J x Z , Ur 

YES-i RoCESS UP 

017 

490B 

FE 

10 



Cr 16 

DoWR ivEY i RESSED 

018 

490 D 

CA 

6 C 

49 


JP Z , DoWR 

YES— PROCESS DOWR 

019 

4910 

FE 

20 



CP 32 

AaFT rEY aRESoaD 

020 

4912 

CA 

B9 

49 


Jr Z,LEFT 

YaS— aROCaSS LaFT 

021 

4915 

FE 

40 



Cp 64 

RIGHT KEY PRESSED 

022 

4917 

Ca 

F8 

49 


Ji Z, RIGHT 

YaS-prOCaoS RIGHT 

023 

491A 

03 

00 

49 


Jr , SC All 

GO BACK TO SOAR R0UT1RE 

024 

491 D 

00 




RoP 


025 

491E 

00 




DOP 


026 





XXaXaXXaXXXXXaaXaXXaXXXXaaXXaXaX^XXaXaXaXaXXXaaXXXaa 

027 

491 F 

21 

00 

44 

UR 

LD Hb,4400 

ToP LEFT SC r EER; ADDrESS 

028 

4922 

11 

37 

4A 


LD Dr , BUFFER 1 

40 BYTE BUFFER ADDRESS 

029 

4925 

01 

28 

00 


LD BC ,28 

LIRE LERGTH TO SCROLL 

030 

4928 

ED 

BO 



LDIR 

Tor LIRE TO BUFFER 

031 

492A 

21 

00 

FO 


LD HL , FOOO 

TOi LEFT COLOUR ADLREaS 

032 

492D 

11 

62 

4 A 


LD tr , B'u FFER2 

40 BYTE BUFFER ADara^o 

033 

4930 

01 

28 

00 


LD BC , 28 

LlriE LEKGTii To SCROLa 

034 

4933 

LL 

BO 



LDIR 

Tor LIRE COLOUR To BUFFER 

035 

4935 

21 

28 

44 


LD HL,4428 

2a D LIRE aEFT ADLaaoS 

036 

4936 

11 

CO 

44 


LD DE, 4400 

T 01 LaF I oCRaAa iiiiOiiAojj 

037 

493B 

01 

98 

03 


LD BC,0398 

aUaBER oF BYT AS TO ROVE 

038 

493a 

ED 

BO 



LDIR 

PoVE LIRa R TO R-1 

039 

4940 

21 

26 

FO 


LD HL,r028 

2a D LIRa COLOUR aaDaEaS 

040 

4943 

11 

00 

FO 


LD Dr , FOCO 

Tor LEFT COLOUR ADDREoS 

041 

4946 

01 

98 

o> 


aD BC ,0398 

aUi-iBER OF BYTaS TO aoVa 

042 

4949 

ED 

BO 



LDIR 

iioVa CoLoUa LIRa R To Ti — 1 

043 

494B 

21 

27 

4A 


LD HL,BUFFaR1 

40 BYTa BUFFER ADDREoa 

044 

494^ 

11 

98 

47 


La Da, ^790 

BOTTOr. LIaE SorE—i'i aLLilaoe 

045 

4951 

01 

28 

00 


LD BC, 26 

BYT ao TO IiOV’a 

046 4954 

aD 

BC 



LDIR 

aaFFaR To B0TT01. aIRa 

047 

4956 

21 

62 

4A 


LD lir ,3UFFER2 

BUFFaA AaDRAoS 

048 

4959 

11 

98 

F3 


LD DE,r396 

AOTTOA LIRa GoAoUa rvAoRAAo 

049 

4950 

01 

26 

00 


LD BC, 28 

EYTao To PoVE 

050 

495E 

ED 

BO 



LDIR 

BUFtaR To BoTTOa OOLCUR LIRE 

051 

4961 

01 

FF 

FF 


LD BC , FFFF 

DEaAY APOUaT 

052 

4964 

CD 

60 

CO 


CALL 0060 

Rot. DECREPERT CoURT 

053 

4967 

C3 

00 

49 


J 1 ' , SC/ii' 

RETURR To SCAR RoUT^RE 

054 

496 A 

00 




RU: 


055 

49 6B 

00 




RGX 


056 





XXXXXXXXX}:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

057 

496C 

21 

98 

47 

DOWD 

LD HL,4798 

BOTTOP LEFT SGREER ADDRESS 

058 

496F 

11 

3? 

4a 


LD DE,BUFFER1 

40 BYTE BUFFER ADDREoS 

059 

4972 

01 

28 

00 


LD BC ,28 

aYTES to pove 

060 

4975 

ED 

BO 



LDIR 

BOTToa LIRE TO BUFFaR 
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061 

4977 

21 

98 

i'3 


LD HL,F398 

BOTTLE LEFT COLOuR ADDRESS 

062 

49 7 A 

11 

62 

4A 


LD DE , BUFFER2 

40 BYTr BUfFrxi ADLRrSr 

063 

4970 

01 

28 

00 


LD BC,2c 

BI’TrS TO EuVE 

064 

4980 

EL) 

BO 



LDIR 

BuiTuE Llux, CORODR TO BUFFER 

063 

4982 

21 

97 

47 


LD HL,4797 

EoTTOx-. rIRE+1 RIG 11 T aDLRErS 

066 4985 

11 

BE 

47 


LD DE,47BF 

BoTTor RIGHT rCKrrR ADDRrSO 

067 

4968 

01 

96 

03 


LD BC ,0398 

BYTE^ To EuVE 

068 

498B 

El) 

B8 



LLDR 

ErVr LIRE R TO R-1 

065 

498D 

21 

97 

F3 


LD HL,F397 

BoTTuR LI a r-1 K1GLT C 0 L 0 UR 
jiD DRr»-»S 

070 

4990 

11 

BF 

E3 


LD DE,F3BF 

BOTTOi'j RioHT CO, 1 0 h aixDkEer 

071 

4995 

01 

98 

03 


LD BC ,0396 

BYTES To ROVE 

072 

4996 

DD 

B8 



LDDR 

CorOuR lire R to R+1 

073 

4998 

21 

37 

4A 


LD HL,£UFFrR1 

40 BYTr BUFFrR ADDRESS 

074 

499B 

11 

00 

44 


LD Dr, 4400 

TOr' LrFT SCarER ADDRroS 

075 

499^ 

01 

28 

00 


L D BC ,28 

BITrc. TO eoVE 

076 

49^1 

E v 

BO 



LDIR 

BUFFER To T 01 Llrr 

077 

49-3 

21 

62 

4/i 


LD HL,BUFFER2 

40 BYTE BUFFER ADDnrro 

076 

49h6 

11 

00 

FO 


LD DE, FOOO 

TOx LEFT ColoDa ALDnr^S 

079 

49-9 

01 

26 

00 


LD BC , 28 

BYTro TO roVr 

060 

49-0 

ED 

BO 



rDlR 

buffer to Tor Colour lire 

081 

49— B 

01 

FF 

FF 


LD BC , FFFF 

arLAY AhoURT 

062 

49B1 

CL 

60 

00 


CALL 0060 

RoK DECRriOLET COUi.T 

063 

49B4 

C3 

00 

49 


d 1 , boar 

RETURR To oCAR ROD TIRE 

084 

49B7 

00 




Kor 


085 

49B6 

00 




ROr 


086 





XaaAA_X^oA./lAAA A.Xji.A./'LX.A XXX XX A AA A a. A. A A A A A A A A A_X. A a^VA A A AA.XX}i 

087 

49E9 

01 

18 

00 

LEFT 

LD BC ,18 

RUBBER OF LIKrO To oOVL 

08o 

49BC 

11 

00 

44 


LD DE, 4400 

Tox' LEFT SCRrER AdExv1.ES 

083 

49BF 

21 

01 

44 


LD HL,4401 

TOx' LEFT rCREEK xiii/Ii^ S+1 

090 

4902 

05 



LOOrl 

1 Uoxi LO 

OAVR LI ax. COUi.T 

091 

4903 

1a 




LD A , (DE) 

SAVr LEFT BYTr OF LIRE 

092 

4904 

01 

27 

00 


LD BC, 27 

BYTEr TO ROVE 

095 

4907 

ED 

BO 



LDIR 

BYTE H TO R-1 

094 

4909 

12 




LD ( Dr ) , A 

oAVrD BYTE TO RIGHT OF LIRE 

C95 

49CA 

13 




IRC DE 

REXT LIRr LEFT ALDREoo 

096 

490B 

23 




IRC HL 

LIar LEFT ADx'REou'fl 

097 

49CC 

Cl 




FOr BC 

GET LIRE COURT 

096 

49CD 

OB 




DEC BC 

DrCREErRT ExRE CoLx.T 

099 

49Cr 

78 




rD a , b 

LIKE CGURT-0 

100 

49 CF 

B1 




OR C 


101 

4900 

C2 

C2 

49 


Jt KZ,L0GF1 

Ro-HOVE REXT EIRE 

102 

49D3 

01 

18 

00 


LD EC. 18 

LIREo TO EuVE 

1C3 

49 B6 

11 

00 

FO 


LD DE, FOOO 

Tox LEFT ColoUR Ai/DxtErS 

104 

49 L9 

21 

01 

FO 


LD HL, F001 

Tor LEFT COLOUR Ax/xxRroS+1 

105 

49DG 

C5 



L0CF2 

x USB BC 

SAVE LIKE COURT 

106 49rD 

1 A 




LD a, (DE) 

S nVE LEFT BYTr OF xjxRE 

107 

49 DE 

01 

27 

00 


LD BO, 27 

BYTEr To ROVE 

106 

49i,1 

ED 

BO 



LDIR 

i'.oVE BYTE R TO R-1 

109 

49L3 

12 




LD (Dr), A 

oAVED BYTE To aIGuT OF rIRE 

110 

49 B4 

13 




IRC DE 

REXT LIRx. LEFT — LrKR._.r 

111 

49o5 

23 




IaC Hr 

RrXT LIRE Llx 1 /idDaRi^oAI 

112 

4906 

Cl 




FOP BC 

GET rIaE COUi.T 

113 

49B7 

OB 




DEC BC 

DECREivERT LIRE COu„T 

114 

491.8 

78 




LD A , B 

LIRE COUaT-G 

115 

49 B9 

El 




UR C 


116 

49E- 

02 

DC 

49 


JF RZ ,L0GP2 

RG-KGVE REXT LlhE 

117 

49ED 

Cl 

FF 

FF 


LD BC , FFFF 

DELAY AI-iOURT 

118 

49 FO 

CD 

60 

00 


C.rJjL 0060 

[ROx. DECREf-EKT COURT 
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119 

4923 

03 

00 

49 


UP, SCAR 

; RETIRE Ta SCAR ROUTINE 

120 

49F6 

00 




HOP 


121 

49*7 

00 




HOP 


122 





XXXX2XXXXXXXXXXXXXaXXAXXXX2aXXXXXXXXXXX.aX.a.XXXA.2XXaAH 

123 

49F8 

01 

18 

00 

RIGHT 

LB BC ,18 

Ll*rS TO i'iOVE 

124 

49 FB 

11 

BF 

47 


LB BE,47BF 

BOTTOM RIGHT SOREEH ABBREoS 

125 

49 FE 

21 

BE 47 


LB HL,47BE 

BuTTOh RIGHT ArBRoSo-1 

126 

4A01 

C5 



LOOP 3 

iUSH BC 

SAVE LIRE Court 

127 

4202 

12 




LD A, (BE) 

oAVE RIGHT BYT* OF LIRE 

128 

4A03 

01 

27 

00 


LB BC , 27 

BYTE* TO LOVE 

129 

4A06 

EL 

B8 



LBBR 

ROVE BYTE N TO R + 1 

130 

4*08 

12 




LB ( BE) , * 

oAVEB BYTE TO LEFT OF LIRE 

131 

4*09 

IB 




BEG BE 

NEXT LIRE RIGHT ABuRES^ 

152 

4A0A 

2B 




BEC HL 

LIRE RIGrT ABbREss-1 

133 

4 AOB 

Cl 




iOP BO 

GET LIRE COURT 

134 

4 *0g 

OB 




BEO BC 

rEORErERT LIRE CoUrT 

135 

4A0B 

76 




LB 2,B 

LIRE C0Ui.T=0 

136 

4*0E 

B1 




OR C 


137 

4*0£ 

02 

Cl 

42 


Or EE , ruOr 3 

NO-EoVE REXT LIRE 

1j>8 

4212 

01 

18 

CC 


LB BO, 18 

LI Rob TO i-.oVE 

159 

421 5 

11 

BF 

F3 


LB BE, F3BF 

BOTTOix RIGHT COr/OUR *j>BREoS 

140 

4218 

21 

BE 

F'3 


LB HL,F3BE 

BoTTOi RIGHT *DBREoS-1 

141 

4*1 B 

C5 



LC Ci 4 

1 USH BO 

*AVE LluE COURT 

142 

4*10 

1* 




eB 2 , ( Lo ) 

oAVE RIGHT BYTE 0*' LioE 

143 

421 L 

01 

27 

CO 


LB BC , 27 

BlTor To HOVE 

144 

4*20 

t.u 

B8 



LBBR 

BYTE R TO R+1 

145 

4*22 

12 




Lr ( B a j , A 

SAVriJ BYTE To LEFT 0 *' LI 20 

146 

4*23 

IB 




BrO BE 

Ri*T Lli\E RIGHT ABBor^o 

147 

4*24 

2B 




BEC r.L 

RIGHT A^BHEob-1 

148 

4*25 

01 




1 Or BC 

GET LlrE CoUl.T 

149 

4*26 

Ob 




BEC BO 

BEoREwEi* T L1*E COURT 

150 

4*27 

78 




LB A , S 

LIRE C0ui(T=0 

151 

4*28 

El 




OR 0 


152 

4*29 

02 

IB 

4* 


J x R 2 , LO Or 4 

*0-H0 : VE REaT LInE 

153 

4*20 

01 

FF 

FF 


LB BC , FFFF 

BEaAY AMOUr. T 

154 

422F 

CL 

60 

00 


C*LL 0060 

Roii BeGaHaEx.T CoUrT 

155 

4*32 

03 

00 

49 


Ur, SCAR 

r-ETURR Ta *>CAH ROUTT RE 

15 & 

4*35 

00 




RoP 


157 

4*36 

00 




Nor 


158 





Xa .XX XXXX XX XX X X a a a a AXX X a a a a. aa aa X .Xa. a a X X a v 5.AA Xa XX a a aX X a. X 

159 

4*37 




BUFFER1 

DOFS 28 

;40 BYTE BUFFER 

160 

4*60 

00 




HOP 


161 

4261 

CO 




E OP 


162 

4262 




BUFFER2 

BEFS 28 

40 BYTE BUFFER 

163 

428* 

00 




KOr 


164 

42SB 

00 




HoP 


165 






EBB 


166 





XX a XX aaa a a a aXXXX XX aX aXXXaXXXaXaaa.XX. a a aaaaA aaaXX aX aXX 

167 

BUFFER 1 



4*37 



168 

r>UFFrR2 



4*62 



169 

BO WE 




4960 



170 

LEFT 




49B9 



171 

L 00 PI 



4902 



172 

LoOP2 



49LC 



173 

L 0 OF 3 



4*01 



174 

L00P4 



421 B 



175 

RIGHT 



49 F8 



176 

Ur 




491 F 



177 





XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



10 'oCREEN SCROLL AND ROTATION BASIC VERSION 
20 'FOR COLOUR GENIE 32K WITH OLD ROES 
30 * (C ) o-ETER FISHER 1983 

40 'lit /DOWN/LEFT/RIGHT ARROWS KOVE SCRLEi. 

30 ’CLEAR KEY TO RETURN TO BASIC/rROGRAKEE 

00 ' LX XX XXXXXaX XXXXXXXXXaXXX XXX aa a XXX A. a a a XX a a XX XaXaX aaXXa-EX.a-X.aJLa X aX a 

70 FOR A=XH4900 TO &H4A36 
80 READ B : 1 ORE A,B 
90 NEXT A 

100 DATA 56,64,248,254,2,200,254,8 
110 DATA 202,31,73,254,16,202,108,73 
120 D^TA 254,32,202,185,73,254,64,202 
130 DAT/! 246,73,195,0,73,0,0,33 
140 DAT - 0,68,11,55,74,1,40,0 
150 DAT/! 237,176,35,0,240,11,98,74 
160 DATA 1 ,40,0,237,176,33,40,68 
170 DATA 11,0,66,1,152,3,237,176 
160 D//TA 33,40,240,11 ,0,240,1 ,152 
190 DAT« 3,237,176,33,55,74,11,152 
200 DAT/! 71,1,40,0,237,176,35,98 
210 DATA. 74,11,152,243,1,40,0,237 
220 LaTa 176,1,255,255,205,96,0,195 
230 LATA 0,73,0,0,33,152,71,11 
240 LATA 55,74,1,40,0,237,176,33 
250 DAT/-. 152,243,11,98,74,1,40,0 
260 D/iT/! 237,176,33,151,71,11,191,71 
270 D/-.T/! 1,152,3,237,176,33,151,243 

260 D/.TA 11,191,243,1,152,3,237,184 
290 DATA 33,55,74,11,0,68,1,40 
300 Data 0 , 237 , 176 , 33 , 98 , 74 , 11,0 
310 D/*TA 240,1 ,40,0,237,176,1 ,255 
320 LATA 255,205,96,0,195,0,73,0 
330 D/.T/! 0,1,24,0,11,0,68,33 

340 D/iT A 1,68,197,26,1,39,0,237 
350 D/._! 176,18,19,35,193,11,120,177 

360 Lai*. 194,154,73,1,24,0,17,0 
370 DA.1A 240,33,1,240,197,26,1,39 
380 DaTa 0,237,164,16,19,35,193,11 
390 data 120,177,194,220,73,1,255,255 

400 LATA 205,96,0,195,0,73,0,0 
410 DAT/-* 1,24,0,17,191,71,33,190 
420 LATA 71,197.26,1,39,0,237,176 
430 DAT* 1&,27,43,193,11,12C,177,194 
440 DATA 1,74,1,24,0,17,191,243 
450 DAT/-. 33,190,243,197,26,1,39,0 
460 DATA 237,184,18,27,43,193,11,120 

470 data 177 , 194 , 27 , 74 , 1 , 255 , 255,205 

460 LA1A 96,0,195,0,73,0,0 



5 CL S3: COLOURS 
1 0 PR I NTS 454 , 11 MOON LANE) I MG " 

15 PRIMTS604, "DO YOU WANT INSTRUCTIONS (Y/N) " 

20 AT - 1 NKEYT : IF AT= "N” GOTO 30 ELSE IF AT - " Y " GOTO 2000: ELSE 20 
2000 CLS: PRINT944, "Your rate of descent varies with" 

2 0 1 0 P R I N T S 8 4 , ' 1 1 h e e n gine t h r u s t. . " 

2020 PRINTS 124, "Use the numerical keys 0 to to" 

2030 PR I NT 3164, "apply increasing I eves of thrust " 

2 0 4 0 P R I N T 3 2 O 4, " f r o rn z e r o t o t. e n » ' ' 

2050 PR I NTS 2 44 , " Keep watching vour r ate of descent" 

2 0 6 0 P R I M T 0 2 8 4 , ' ’ a n d y o u. r h i. q h t a b a v e 1 h e J. u n a r 1 ' 

2 0 70 P R I N T 5 3 2 4 ,, " s u r f a c e ' ' 

2080 PRINTS) 404, "Running out of fuel is a big" 

2090 PR IN TO 4 54, "MO NO ! " 

2 1 0 0 P R I N T 3 5 2 7 , 1 ' P R E S S R E T U R N T 0 C 0 N T I N tJ E " 

21 10 (3- PEEK (-1984) 

2120 IF G AND 01 THEN GOTO 30 ELSE GOTO 2110 


! IOOMLANE (.NO instr uc'fci on page 
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GENIE INVADERS 
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for anything except HEKTIC 
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The Benie and the #-l Case 


As I said last month, I have been looking into the problem of data 
saving with the Colour Genie using the F'RINTtt-i and INPUT#-1 statements. 
If I had foreseen the difficulties that would arise with the # ' /.?< ? - data, I 
would not have used those statements in my program. I have another routine 
in the program which saves the bulk of the data and it would have been 
easier in retrospect to have u sed it to save all of the data. However, it 
is an ill wind 

What were the facts I had to work: on? After the evidence had been 
sifted from the chaff, I was left with the following. Some folks cannot 
read back data tapes. The ROM uses the same routines for SAVing and 
LOADing SYSTEM, BASIC and data. The LOADinq volume level is much more 
sensitive with data than with BASIC or SYSTEM tapes. Long strings of 
variables in F’RINT#-1 and INPUT#- 1 are more difficult than single variables. 

How does the Genie save bytes onto tape? Each byte presented to 
the WRITE-BYTE routine is broken up into 3 bits of binary information. 
Each of these bits has a preceding clock pulse recorded onto the tape to let 
the machine know that a recorded bit of data is coming. The data bit 
follows about 600 microseconds later. The routine then collects the next 
bit and records a clock pulse and the data bit. This goes on until all 9 
bits have been recorded. They look something like this diagrammatically: 


ctock Drffrc 

Pkvd. 

By the time that the usual cassette 
it looks like this: 


Ole* 


Tec 


■si ectr oni cs 


have dealt with 


the signal. 



_zx 

\y 


V? 



When the data is being LQABed back into the cassette input port. The 
Genie waits until a clock: pulse comes along. It then expects the data bit 
to follow and gets it. This is stored while the machine waits for the next 
clock pulse. This goes on until it has all S bits which then gets stored 
as a loaded byte of data by the BASIC, SYSTEM or INPUT#- 1 routine. This 
process is repeated until a specified sequence of bytes tell it that the 
load has been completed. 


What goes wrong with data SAVEs and LOADs? 
processing time between bytes on an INF'UT#-1 is 
between bytes on the tape and the -^irst clock pulse 
head just a bit (pun there!) too early as in the di 


oj-Kves kenl 




My theory is 
greater than 
is arriving at 
agram. 


that the 
the space 
the tape 


o ck puds e 

Mow these clock and data pulses get amplified inside the Genie so that the 
machine can distinguish between the pulses and other tape noise. Most 
Genies can handle this but a few have slightly weaker amplifying stage (a 
normal thing with IC’s) and they miss the first clock pulse. This upsets 
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normal thing with IC's) and they miss the -first clock pulse. This upsets 
the whole timing sequence and the result is a garbaged load. I believe 
that the PRINT#-1 process works properly and data is SAVEd to tape 
correctly. It is just that some machines cannot read their own tapes 
whereas another machine could! Don't destroy data tapes i-f you can't read 
them. Someone else could re-record them so that you can read them. 


How can we cure this timing problem? It would be too difficult to 
speed up the INF’UT#-1 procedure as this would require a rewrite of the ROM. 
However, the designers of grand-pappy TRS80 Model 1 were very farsighted and 
built CALL’S to the RAM into the ROM. These enable the ROM procedures to 
be intercepted and an additional routine inserted. Thus we can insert a 
delay between each byte being sent from the PRINT#-! to the tape output 
port. This is what the following patch does. 

10 FOR X=0 TO 3: READ B: PQKE&H4181+X , B: NEXT 
20 P0KE&H4 103,65: P0KE&H4 1 02, 1 29 : POKE &H4 1 C 1 , 1 95 
30 DATA 58, 156,64, 183,240,71, 16,254,201 
Naturally, WF'2 has had this patch incorporated but owners need not bother 
Nola by sending their tapes back for an update. Make the following 
alterations to lines 383 and 389 of WP2. 

388 F0RL=GT055: (add at end of line) :P0KE?<H4 103,65: P0KE&H41 02, 129: 

P0KEKH41C1, 195 


Add this data at the end of line 389. 

339 .... ,53, 156,64, 183,240,71,16,2 
The patch can be added to any program 
even when a new program is loaded, 
patch illustrates the advantage of 
would be very difficult to add it to 


and will remain in memory from then on 
It disappears on switching off. This 
a hybrid word processing program as it 
a machine code program. 


WF'2 owners making this alteration could make another cosmetic 
change to line 366 at the same time. Change ". . THEN 2Q ELSECLS" to 
" . . . THEN I-Z EL5ECLS” . This will prevent a premature end to some functions 
under a certain unusual combination of commands. 


Does the patch work? This article has been TAF'Ed and LOADed 
several times with it in place but I normally don't have any problem in this 
respect. I will only know the results IF YOU WRITE OR PHONE ME. I do 
like to hear good news sometimes. In fact I'd like to hear anything from 
anybody about my programs or articles. 


Allan Clarke 


yES_Z_yQCd_Proces5gr_Ngt es 

This month I shall discuss underlining with WF'2 and then 
have a -few words about taping data files with the Genie. (But 
also see the separate article about PRINT#— 1 / INFUT#-1 . ) 

One of the least understood functions in WF'2 has been the 
underlining function. Instead of using markers in a line, I 
adopted the WYSIWYG (what you see is what you get) principle 
when designing the word processor. Lines typed like this: 

1 9 HEAD I NG 

20 

will be printed like this: 

heading 

The line containing the underlining characters MUST end with an 
underline character. Otherwise the line will printed as a line 
of CHRT (95) ’ s. 


Centred lines or headings are best underlined by tabbing 
the cursor to the position just under the characters to be 
underlined rather than trying to centre an underline string. 

The method of underlining used in the program is back- ■ 
space underlining as this allows the greatest flexibility with 
different printers. It is also the smoothest method with the 
Super 5/CF' 80 family. Some printers are not happy with this 
method and the following program alteration may suit them better 
as it does nry NEC 8023. The alternative requires one line to be 
replaced and one additional line. However, you would probably 
have to 'tune’ line 396 to suit your particular printer. This 
line contains printer dependent, variable values. 

To change to the alternative, type in the following two lines: 


338 FDR I = 1 TDLEN < AS CP) > 
LFR I NT US ; IT ID* ( AT ( F ) , I , 
LPRINTMIDS (AS (P) , I , 1 ) j 


: I F I < =LEN ( AS (P+1 ) ) IFASC (MIDS (AS (P+1 ) ,1) 
1 ) ; VS; ELSELPRINTMIDS (AS (P) ,1,1); ELSE 


340 NEXT I : P=P+1 


This gives a true underlining but was not as smooth on the Super 
5. US and VS are the underline-on and off character strings in 
line 396. Anyone who has difficulty in setting up their 
printer should contact me, preferably with a copy of their 
printer codes. 

It was not very difficult to deal with the faulty data 
tapes created with WP2 as requested in last month's bulletin. 
There were none! Does this mean that nobody has any problem 
any more? I doubt it. I think that the latent bug existing 
in the Genie has made us much more aware of tape care than 
otherwise would have been the case. One more suggestion for 
those with difficult data loading and saving is not to use 
automatic volume controls on tape recorders. This produces 
unsaturated tapes. 

— CUlta*^. a. 


PRINTING DEMONSTRATION 


USING A SUPER 5 PRINTER 


10 FOR J =0 TO 10: READ K:P0KE 18422+J, K: NEXT 
jiO DAT A45 > 64 f 67 , o > U t BO > S^' > 1 *i' 1 * 195fji!35j4 
30 CLS: PPINTQ449) "PRINTING DEMONSTRATION" 

40 FOR X=1 TO 1000: NEXT 
50 CLS: PRINTS53, "MENU" 

60 PR I NT® 130, "PICA - TYPE ’P’ 

ALICS TYPE ’I’" 

70 PRINTS250, "DOUBLE WIDTH - TYPE'D' 

MF'RESSED - TYPE’ C’ " 

80 INPUT A$ 

90 IF A$="P" THEN GOSUB 500 ELSE IF A$="E" THEN GOSUB 
95 GOTO 110 


A//a - i CUr/ce's 

etc ^ 


pCcJ-cL r~c e^czhU S^ufe^ 
Accept- 


ELITE - TYPE ’E’ 


IT 


UNDERLINE - TYPE’U’ 


CO 


510 ELSE IF A$=" I " THEN GOSUB 520 ELSE 100 


100 IF A$="D" THEN GOSUB 530 ELSE IF A$="U" THEN GOSUB 540 ELSE IF A$="C" THEN GOSUB 550 ELSE 80 
110 INPUT "TYPE A LINE" ; B$ 

120 LPRINT B$ 

130 LPRINT CHR$C27) ; CHR$(64> : GOTO 50 

500 LPR I NT CHR$ C 27 ) ; CHR$ ( 80 ) ; CHR$ C 0 1 ) : RETURN 

510 LPRINT CHR$(27) ;CHR$(80) ;CHR$CO) : RETURN /j-. // /U c £',/) , 

520 LPR I NT CHR$ C 27 ) ; CHR$ C 52 > : RETURN 

530 LPRINT CHR$ (27 ) ; CHR$ (87 > ; CHR$ COl): RETURN £ EN'P 

540 LPRINT CHR$(27) ; CHR$ (45) ; CHR$ COl ): RETURN • 

550 LPRINT CHR$C 15) : RETURN 



1 CLS 

lO A=RND(6) 

100 IF A=6 THEN FOR X = X TO X+5 STEP2: FRINTSX, CHR* (202) : NEXT X:FOR 
X=X+160 TO X+164 STEF’2: FRINTSX , CHR* (202) : NEXT X 
110 IF A=5 THEN PR I NTS 1 , CHR* (202 ) : PR I NTS5, CHR* ( 202) : PR I NTS1 61 . CHR 
* ( 202 ) : PRINTS 1<S5, CHR* (202) : PRINTS83, CHR* (202) 

120 IF A=4 THEN PR I NTS 1 , CHR* ( 202) : PR I NTS5, CHR* (202 ) : PR I NTS 1 6 1 , CHR 
* (202) : PR I NTS 165, CHR* (202) 

130 IF A=3 THEN PR I NTS 1 , CHR* (202) : PRINTS83, CHR* (202) : PR I NTS 165, CH 
R* (202) 

140 IF A=2 THEN PR I NTS 1 , CHR* (202) : PR I NTS 165, CHR* (202) 

150 IF A= 1 THEN PRINTSB3, CHR* (202) 

180 FOR X=1 TO 1 GOO: NEXT: CLS 
200 GOTO 10 

, e"Z 1 ^ H *■?„■-/■■ /3'C.ti 

//:VV-V/^ ;+/'//_; £. Mr/ /7 j: *3 /*£?■*? t. f , //•/ 

- /Z/i s~7S 


PRINTER'S NOTE 


MODIFICATION TO WORDMATE 


Pag e 1 


The following extra lines I have added to 
enable me to use F'icar Elite and Italic fonts, 
others. 


Allan Clarke's Wordmate 
It may be of use to 

( EuTc) 


My printer is a Super 5/ EN-P 1090 . 

Keith McGill. 

251 GO SUB 400 

400 INPUT" FONT - P/E/I"-,XP$ 

402 LPRINT CHR# (27 ) ; CHR$ (64) 

404 IF HSC< XP$ ) -80 THEN 406 ELSE IF HSC(XPt>=69 THEN 408 ELSE IF 
406 LPRINT CHR$<27>}CHR$< 80 > ;CHR$ <01 > -.RETURN 
408 LPRINT CHR$(27> ; CHRi (80) ; CHR$ (0) : RETURN 
410 LPRINT CHR$(27>}CHR$(52) -.RETURN 


r ELtTc 

c IT4ucs 


) 


MSC (XP$>-73 THEN 410 ELSE 400 


I HiS 

prc elites <x o^d (Hv 
0-f -Hv^ 

^tvvw^/ ^neC l (r\ei. 


Pi 


rtss aKvy ^y 4tj re 


10 INF'UT"No.of grid lines";N 
20 DIM CX (5) f CY (5) , LX (5, N+l ) , LY (5» N+l ) 

30 CLS 

40 FCLS: FGR: FC0L0UR4 
50 FGR 1=1 TO 5 
60 READ CX ( I ) , CY( I > 

70 NEXT I 

80 DATA 3,9,9,89, 149,89, 149,9,9,3 
30 FOR 1=1 TO 4 

100 PLOT CX<I),CY<:i:> TO CXCI+1) ,CY(I + 1) 

110 NEXT I 
120 FOR 1=1 TO N 
130 LX ( 1 , I >=CX ( 1 ) + (CX (2) -CX ( 1 ) > *I/N 
140 LY ( 1 , I)=CY<1)+(CY<2)-CY<1))*I/N 
150 NEXT I 
160 FOR 1=1 TO N 

170 LX (3, I) =CX (4> + (CX (3) -CX (4) )*I/N 
130 LY(3, I )=CY (4) +(CY (3) -CY (4) ) 4I/N 
130 NEXT I 
200 FOR 1=1 TO N 

210 LXC2, I)=CX<2) + (-CX(3)-CX(2))*I/IM 
220 LY (2, I)=CY(2)+(CY(3>-CY(2))*I/N 
230 NEXT I 
240 FOR 1=1 TO N 

250 LX (4, I )=CX ( 1 ) + CCX (4) -CX < 1 ) >*I/N 

260 LY ( 4 , I ) =CY ( 1 > + ( CY ( 4 ) -CY ( 1 ) ) 4 1 /N 

270 NEXT I 

280 R0W=1 : GOSUB 310 

230 R0W=2: GOSUB 310 

300 K$=INKEY$: IF K$="" THEN 300 ELSE FCLS: CLS: LGR: RUN 
310 REM 

320 FOR 1=1 TO N 

330 PLOT LX ( ROW, I), LY (ROW, I) TO LX (ROW+2, I ) , LY (ROW+2, I ) 

340 NEXT I 
350 RETURN 

360 REM: ADAPTED FOR CG by K. McGill FROM USBORNE BOOKS 'BETTER BASIC' 




*0 CLS: PRINT051 , "H 0 R S E RAC E": PRINT: PRINT 
20 CHAR4 

30 PR I NT "THE ONLY CONTROLS ARE THE SPACE BAR AND THE »M» KEY. PRESS EITHER OF TH 
ESE TO START THE RACE" 

40 PRINT "PRESS ANY KEY TO CONTINUE" 

50 K*=INKEY$: IF K$="" THEN 50 
60 DIMA (15): GOTO 370 

70 CLS: FOR A=1 TO 7 : READ A (A): NEXT A 

80 ST =-3072 : FOR AD=ST TO ST + 7 : READ D: POKE AD, D: NEXT AD 

90 ST=— 3064: FOR AD=ST TO ST +7 : READ D : POKE AD, D: NEXT AD 

100 DATA 85,165,245,325,405,485,565 

110 DATA 0,2,5,248,120,132,66,36 

120 DATA 36,18,33,30,31,160,64,0 

130 PRINT© 13, C.G. STAKES *" 

140 CHAR 2 

150 PRINTS720, "WHICH HORSE DO YOU WANT TO BET ON";: INPUT H 
160 CLS 

165 PRINT© 13, " C.G. STAKES *" 

170 FDR X=48 TO 688 STEP 40: PRINT6X, "a" ; : NEXT 
180 FOR C=1 TO 7 : GOSUB 470: NEXT C 
190 F =80 : FOR C=1 T07: PRINT6F, C: F=F+80: NEXT C 
200 PR I NT @845 , "GET SET. 

210 FOR X= 1 TO 1000 : NEXTX : FOR X= 48 TO 688 STEP 40 :PRINT@X," " : NEXT: PRINTQ845, " 
AND THEY’RE OFF ! " ; 

220 FOR C=1 TO 7 

230 V=C: GOSUB 450: IF E$="M" THEN 240 ELSE 270 
240 ZS=RNDC35) : IF C=ZS THEN GOSUB 530: E$=" " : GOTO 290 
250 REM 
260 REM 

270 W=RND (2 ) : IF W=2 AND COZS THEN ACC)=ACO + l 

280 IF ACC) <80 THEN A ( C) =0: PR I NT@A CC) , " " ; : PRINT© A C C) +2, " " ; : PR I NT ©A ( C ) + 1 , " " 

290 NEXT C 

300 FOR V= 1 TO 7: GOSUB 450: ACC) =A CO): GOSUB 470 
310 NEXT V 
320 GOTO 220 

330 FOR R=34 TO 834 STEP 40: PRINTSR, : NEXT R 

340 PRINT©845, "THE RACE IS OVER !";: FOR. X=1 TO 1000: NEXT 

350 FOR X=1 TO 1000: NEXT 

360 CLS: FOR P= 1 TO 250: NEXT P 

370 CLS: PRINT" WINNER: ": PRINT "HORSE NO. ";M 

380 IF H=V THEN PRINT@440, "YOU WON $ " ; H*5 : ELSE PRINT"TOO BAD - YOUR HORSE LOST" 
390 RESTORE 

400 PRINT "PRESS SPACER OR »M» KEY TO RESTART" 

410 E*= INKEY* 

420 IF E*=" " THEN CLEAR: DIMA C 15) : GOTO 70 

430 IF E*="M" THEN CLEAR: E*="M" : DIMA C 15) : GOTO 70 

440 FOR P=1 TO 250: NEXT F*:GOTO 410 

450 M=V 

460 RETURN 

470 CHAR2: PRINTSACC) , " " ; : PRINTSACC) , CHE* C 128) 

480 PRINT© A CC) , " 

490 PR I NT@A ( C ) + 1 , CHR*C 128) 

500 IF ACC) =5920R ACC) = 112 OR ACC) = 192 OR. ACC) =272 OR ACC) =352 OR ACC) =432 OR AC 
0=512 THEN GOSUB 450: GOTO 330 
510 RETURN 
520 GOTO 70 

530 CHARI : PRINTQA CC) , CHR* C 129) ; " HORSE FELL"; 

540 AC 0=0 
550 RETURN 
560 END 


CONvt^^O 'To C-6-. 

n 


c 


0 v o c ruv*'<n'C' in 


1 


EL I Z A 


10 CLS: CLEAR 5C00 
20 CLEAR 5000 
30 PRINTi55,*t ELIZA V 
40 PRINTJ124,'* YQ1JR PERSONAL PSYCHOTHERAPIST V 

50 PRINT: PRINT: PRINT'TYPE IN YOUR FEELIN8S, AND ELIZA WILL THINK FOR A HONENT, THEN ANSWER YOU* 

60 PRINTiPRINT 

70 DIN 5(36),R(36),N(36) 

80 K1=36:N2=14:K3=112 

90 ?0R I=i‘T0 XI+N2+Nj:R£AS Z$:NEIT I 

100 FOR 1=1 TO N1 

110 READ S(I).L:P(I)=S{X):M(X)=S(X)*L-1 
120 REIT I 

130 PRINTmo. PH ELIZA. BOU CAN I HELP YOU ?• 

140 INPUT II 
150 1$=' MH' ■ 

160 FOR L=1 TO LEN(IO) 

170 IF MIDi( I$,L, 1)=" * THEN IH£nO(IO,L-l)+MGHT*<I*,LEN<I*H>:5QTQ 170 

180 IF L+4<=LEN(I») THEN IF HID*(I*,L,4)='SHUT' THEN PRINT'DQN’T YOU TELL HE TO SHUT UP, YOU LITTLE TNIT!‘:END 
190 NEIT L 

200 IF I$=PO THEN PRINT'PLEASE DON'T REPEAT YOURSELF !*: SOTO 140 
210 RESTORE 
220 S=0 

230 FOR K=1 TO N1 
240 READ K$ 

250 IF S>0 m 290 

260 FOR L=1 TO LEN«*)-LEN(K$M 

270 IF HID»(!»,L,LEN(M))=tt THEN S=K:T=L:F$=K» 

280 NEIT L 
290 NEIT K 

200 IF S10 THEN K=S:L=T:SOTB 320 
310 K=3S:6QTQ 530 
320 REH 

330 RESTORE.-FDR 1=1 TO NliREAO Z*: NEIT I ■ 

340 «=* ‘♦R!5HTI([$,L£N(l$H.EN(F$)-L♦l)♦ , 1 
350 FOR 1=1 TO N2/2 
360 REAS S»,R» 

370 FOR L=1 TO LEN(M) 

380 IF L+LEN(S*)>LEX(C*> THEN 430 

390 IF HIDI(C»,L,LEN(Sf))OS» THEN 430 

400 CKEFTI(«,L-l)»R$tRISHT$(C*,LEN(CO)-L-LEN(S»)*l) 

410 L=L*LEN(M) 

420 SOTO 470 

430 IF LH.EN(M»LEN(CI) THEN 470 

440 IF H!M(C$,L,LEN(R*))ORO THEN470 

450 C$=LEFT$(C»,L-1)*S$+RISHT$(CI|LEN(C$H.-LEN(RI)+1) 

460 L=L+LEN(S$) 

470 NEIT L 
480 NEIT I 


490 IF HID»(Ctr2il)* a ,T HER C*=RISHT*(CI,LEH(C*M) 

500 FOR L=1 TO LEK(CI) 

510 IF HID$(C$»Lf I)=* ! •THEM CKEFTi(C»,L-lHRISHT*(C$,LER(Ct)-L):GQTO 510 
520 N€IT L 
530 RED 

540 RESTORE: FOR 1=1 TO Rl+R2:READ Z*:MEXT l 

550 FOR 1=1 TO ROOiREAD F«:M£XT I 

550 R(K)=R(K)+1:IF R(K)>R(K)THER R(K)=3(K) 

570 IF RIfflTi(F0,l)O'f THEM PRIMTF$:P$=It:SOTQ 140 
580 PRIITLEFT*(F*,L£H(F*M);C* 

590 P*=I*:SOTO 140 

600 DATA’CAM YOU ','CAR IV YOU ARE*, , Y0URE , , , 1 DONT , ,'I FEE' 

610 BATA "UHY DART YOU V HHY CART I*, 'ARE YOU',' I CART*, 1 ! AH', *IH * 

820 DATA 'YOU VI HART VHHAT',* HOU*, 'HHQ ','HHERE*, 'HHER ','HHY' 

630 DATA ‘RARE'r 'CAUSES 'SORRY*, 'DREAR') 'HELLO ','HI ', 'MAYBE* 

540 DATA ' ROVYOIRVALHAYSVTHIRK', 'ALIKE', 'YES*, 'FRIERD* 

650 DATA 'COMPUTER', 'HQKEYFQURD* 

560 DATA ' ARE ',' AR '.'HERE ','HAS YOU ',' I YOU! ',* MY ' 

670 DATA ' IVE YOUVE IM YOURE ’ 

530 DATA * ME *,' .'YOU ' 

690 DATA 'DOR'T YOU BELIEVE THAT I CAR*' 

700 DATA 'PERHAPS YOU yOULD LIKE TO 3E ABLE TOf 

710 DATA 'YOU HART * TO BE ABLE TOf 

720 DATA 'PERHAPS YOU DOR'T HART TOf 

730 DATA 'DO YOU HART TO BE ABLE TOf 

740 DATA 'WHAT HAKES YOU THIRK I AMf 

750 DATA 'DO YOU HART TO BELIEVE I AMf 

760 DATA 'PERHAPS YOU HOUtfl LIKE TO BEf 

770 DATA 'DO YOU SOMETIMES HISH YOU HEREf 

7B0 DATA 'DOR'T YOU JEALLYf 

790 BATA 'HHY OOR'T YQUf 

300 DATA ‘DO YOU HISH YOU COULOf 

810 DATA 'DOES THAT TROUBLE YOU?* 

920 DATA 'TELL ME "ORE ABOUT THESE FEELIR6S' 

830 OATA 'DO YOU OfTER FEEL*' 

840 DATA 'DO YOU ERJOY FEELIRGf 
850 DATA 'DO YOU REALLY BELIEVE I DOR’T** 

860 BATA 'PERHAPS IR SOOfl TIME I HILL*' 

870 DATA 'DO YOU HART ME TOf 

380 DATA 'DO YOU THIK YOU SHOUU BE ABLE TO*' 

890 DATA 'HHY CAN'T YQUf 

900 DATA 'HHY ARE YOU IHTERESTEJ IR HHETHER OR ROT I AM*' 

910 DATA 'HOULD YOU PREFER IT IF I HERE MOTf 
920 DATA 'PERHAPS II YOUR FANTASIES I AMf 

930 DATA ‘HOU DO YOU KNOU YOU CAR'Tf 

940 DATA 'HAVE YOU TRIE#?* 

950 DATA 'PERHAPS YOU CAM ROUf 

960 DATA 'DID YOU COME TO ME BECAUSE YOU AREf 

970 DATA 'HOU L3R6 HAVE YOU BEER*' 


380 DATA 
980 SATA 
1000 DATA 
1010 BATA 
1020 DATA 
1030 SATA 
1040 DATA 
1050 BATA 
1080 DATA 
1070 SATA 
1080 DATA 
1090 SATA 
1100 DATA 
1110 BATA 
1120 DATA 
1130 BATA 
1140 DATA 
1150 BATA 
1160 DATA 
1170 SATA 
1180 SATA 
1190 DATA 
1200 DATA 
1210 DATA 
1220 DATA 
1230 SATA 
1240 DATA 
1250 SATA 
1260 DATA 
1270 SATA 
1280 DATA 
1290 BATA 
1300 DATA 
1310 BATA 
1320 DATA 
1330 BATA 
1340 DATA 
1350 BATA 
1360 DATA 
1370 BATA 
1380 DATA 
1390 BATA 
1400 DATA 
1410 BATA 
1420 BATA 
1430 BATA 
1440 BATA 
1450 BATA 
1460 BATA 


) 

1 


■DO YOU BELIEVE IT IS NORMAL TO BET 1 
■DO YOU ENJOY BEINGI' 

‘HE MERE DISCUSS I NS YOU • NOT RE' 

OH) I... I* 

■YOU'RE NOT REALLY TALKIN6 ABOUT RE, ARE YOU?' 
■KHAT WOULD IT REAN TO YOU IF YOU 60Tf 
•WHY DO YOU WANT*' 

•SUPPOSE YOU SOON SOTf 
■KHAT IF YOU NEVER SOTS' 

•I SOMETIMES ALSO WANT*' 

'WHY DO YOU ASX?* 

•DOES THAT QUESTION INTEREST YOU?* 

'WHAT ANSWER WOULD PLEASE YOU HOST?' 

'WHAT DO YOU THIN!?’ 

'ARE SUCK QUESTIONS ON YOUR RIND OFTEN?* 

•WHAT IS IT THAT YOU REALLY WANT TO WOW?* 

■HAVE YOU ASKED ANYO* ELSE?* 

■HAVE YOU ASKED SUCH QUESTIONS BEFORE? 1 
‘WHAT ELSE CORES TO RIND WHEN YOU ASK THAT? 1 
■NAHES DON'T INTERSET HE* 

•I DON'T CARE ABOUT NAHS-PLEASE SO ON* 

■IS THAT THE REAL REASON?* 

■DON'T ANY OTHER REASONS CORE TO RIND?' 

■DOES THAT EIPLAIN ANYTHING &SE’ 1 
•WHAT OTHER REASONS WIGHT THERE BE’* 

•PLEASE DON'T APOLOGIZE!' 

'APOLOGIES AREN’T NECESSARY' 

•«HAT FEELINGS DO YOU HAVE WHEN YOU SAY THAT?' 
•DON'T BE SO DEFENSIVE!' 

■WHAT DOES THAT DREAR SUGGEST TO YOU 1 ' 

•DO YOU DREAR OFTEN?’ 

■WHAT PEOPLE APPEAR IN YOUR DREARS’* 

'ARE YOU DISTURBED BY YOUR DREARS?' 

•HELLO-TELL RE WHAT BROUGHT YOU TO RE' 

•YOU DON'T SEER QUITE CERTAIN' 

•WHY THE UNCERTAIN TO*?' 

■CAN'T YOU BE RCRE POSITIVE?* 

•YOU AREN'T SURE?’ 

•DON'T YOU KNOW?* 

•ARE YOU SAYING 'NO' JUST TO BE NEGATIVE? 1 
'YOU'RE BEIN6 A BIT NEGATIVE' 

■WHY NOT?' 

■ARE YOU SURE?' 

•WHY NO?* 

•WHY ARE YOU CONCERNED ABOUT RYf 
'WHAT ABOUT YOUR OWN*' 

•CAN YOU THINK OF A SPECIFIC EIARPLE?* 

•WHET* 

'WHAT ARE YOU THINKIN6 OF’' 


1470 DATA 'REALLY, ALWAYS?' 

1480 BATA 'DO YOU REALLY TH1K SO’’ 

1490 DATA 'BUR YOU ARE NOT SURE YOU*' 

1500 BATA 'DO YOU DOUBT YOU!' 

1510 DATA ’IN WHAT WAY?' 

1520 BATA ’WHAT RESEMBLANCE DO YOU SEE? 1 

1530 DATA ’WHAT DOES TIC SIHILARITY SUGGEST TO YOU’* 

1540 BATA ’WHAT OTHER CONNECTIONS DO YOU SEE’* 

1550 DATA ’COULD THERE REALLY BE SORE CONNECTION?' 

1560 SATA •HOB?" 

1570 DATA 'YOU SEER QUITE POSITIVE* 

1580 DATA ’ARE YOU SURE’’ 

1590 DATA *1 SEE* 

1600 BATA ‘I UNDERSTAND' 

1610 DATA 'WHY DO YOU KING UP TIE TOPIC OF FRIENDS?' 

1620 BATA 'DO YOUR FRIENDS WORRY YOU?' 

1630 DATA 'DO YOUR FRIENDS PICK ON YOU?' 

1640 DATA ‘ARE YOU SUREYOU HAVE ANY REAL FRIENDS?' 

1650 DATA 'DO YOU Ilf OSE ON YOUR FRIENDS?' 

1660 DATA 'PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU' 

1670 DATA 'DO COHPUTIRS WORRY YOU?' 

1680 SATA 'ARE YOU TALKING ABOUT HE IN PARTICULAR’’ 

1690 DATA 'ARE YOU FRIGHTENED BY MACHINES’' 

1700 BATA 'WHY DO YOU IOTION COMPUTERS?' 

1710 DATA 'WHAT 00 YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?' 

1720 DATA 'DON'T YOU THIMC COMPUTERS CAN HELP PEOPLE?' 

1730 DATA 'UNAT IS IT ABOUT MACHINES THAT WORRIES YOU?' 

1740 DATA 'DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?' 

1750 DATA 'WHaT DOES THAT SUGGEST TO YOU?' 

1760 DATA *1 SEE* 

1770 DATA 'I'M MOT StKE I UNDERSTAND YOU FULLY* 

1780 BATA 'CAN YOU CLARIFY THAT A LITTLE’* 

1790 DATA 'CAN YOU ELABORATE DM THAT?* 

1800 DATA 'THAT'S QUITE INTERESTING' 

1810 DATA 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3 

1820 BATA 28,4.28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9 

1830 DATA 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4 

1840 DATA 80,3,83,7,90,3,93,6,99,7,106,6 

1850 REH: ADAPTED FOR COLOUR GENIE BY A.K.HcSILL 

1860 REM: FROM A PROSRAK IN BAVID AHL'S 'MORE BASIC COMPUTER GAMES' 


